10 IFTE=0THENTE=8192:G=7:POKE53272,21:DIMN$(8):DIMM$(8)
20 SYSTE
30 GOTO1400
40 PRINT"[147]";:!HUE(6,6,14):FORI=0TO23
50 PRINT" WELCOME TO LABEL PRO4.1 BY STEVE BOAL":POKE53280,1:POKE53280,2:NEXT
60 PRINT" WELCOME TO LABEL PRO4.1 BY STEVE BOAL";:!RESTORE:RETURN
70 !DIM(06,07,26,10):!DEF(1,1,R,V,32,5,1)
80 A$=""
90 A$=A$+"     LABEL PRO V4.1   ":A$=A$+"   [144] A SHAREWARE PRODUCT "
100 A$=A$+"       BY[158] STEVE BOAL      ":A$=A$+"     6021 CLARK ST.     "
110 A$=A$+"  DES MOINES,IA 50311  "
120 A$=A$+"[144]  SEND[159] $5 [144] TO REGISTER  ":A$=A$+"   FOR FUTURE UPDATES "
130 A$=A$+"      AND ENHANCEMENTS    "
140 !OPEN,A$
150 FORI=ITO2000:NEXTI
160 A$=""
170 A$=A$+"       THANKS TO      ":A$=A$+"   [144]     [129]LARRY EAMER[144]   "
180 A$=A$+"         [158]ERIC WOOLSEY    ":A$=A$+"       [159]RONALD CARNELL  "
190 A$=A$+"       THE WINDOW WIZARD   "
200 A$=A$+"   [144]IF YOU LIKE THIS ONE ":A$=A$+"    WAIT UNTIL YOU SEE "
210 A$=A$+"   WHAT'S NEXT!--(C) 1986 "
220 !AGAIN,A$
230 !DIM(18,12,16,3):!DEF(1,1,R,V,32,100,1)
240 FORI=ITO500:NEXTI
250 FORI=0TO5000:GETQ$:IFQ$=CHR$(13)THEN!CLOSE:RETURN
260 B$="":B$=B$+" PUSH RETURN!"
270 !OPEN,B$
280 FORT=1TO500:NEXTT:!CLOSE:FORZ=1TO500:NEXTZ:NEXTI
290 C$="":C$=C$+"[144]SELECT NUMBER OF LINES "
300 C$=C$+"[154] 1......1 LINE LABEL    2......2 LINE LABEL    "
310 C$=C$+"3......3 LINE LABEL    4......4 LINE LABEL    "
320 C$=C$+"5......5 LINE LABEL    6......6 LINE LABEL    "
330 C$=C$+"7......7 LINE LABEL    8......8 LINE LABEL    "
340 !DEF(1,1,03,160,160,01):!DIM(8,8,25,11)
350 !OPEN,C$,U$
360 GETU$:U=VAL(U$):IFU<1ORU>8THEN360
370 !CLOSE:RETURN
380 D$="":I$=CHR$(13)
390 D$=D$+"[159][197]NTER '+' AT BEGINNING OF LINE FOR"+I$
400 D$=D$+"[197]XPANDED [208]RINT ([204]IMIT 16 CHARS.)  "+I$
410 D$=D$+"'-' [211]TANDARD [208]RINT-[204]IMIT 32 CHARS."+I$
420 D$=D$+"'_' FOR [194]LANK [204]INE, '[198]1'-[198]ONTS+   "+I$
430 !DEF(1,1,08,160,160,01):!DIM(02,02,37,06)
440 !OPEN,D$
450 GOSUB230:RETURN
460 I$=CHR$(13):F$="":F$=F$+"[144][211]ELECT [208]RINTER [193]DDRESS-[195]URSOR/[210][212][206]  "+I$
470 F$=F$+"[154]? 0-[195]OMMODORE UPPER CASE ADDRESS   "
480 F$=F$+"? 4-[212]RANSPARENT MODE WITH LINEFEED "
490 F$=F$+"? 7-[195]OMMODORE UPPER/LOWER ADDRESS  "
500 F$=F$+"? 10-[198]ONTS+ [211]PECIAL CHARACTER FONTS"+I$
510 F$=F$+"? **-[207]THER-[211]PECIFY TWO DIGIT & [210][212][206] "
520 !DEF(1,1,03,160,160,01):!DIM(09,02,37,08)
530 !OPEN,F$
540 !PRINT@,11,03:INPUT "[154]";G$:G=VAL(MID$(G$,3,2)):IFG<00ORG>99THEN540
550 !CLOSE:RETURN
560 PRINT"[147]":W=U+8:POKE53272,23:V=160:R=03:POKE53281,11:POKE646,7
570 PRINT"[147]":PRINT"[145][158]" SPC(0)"            "U"[157] [204][201][206][197] [204][193][194][197][204][211]              "
580 PRINT"[145][204]INE[146]" SPC(18) "16[146]"SPC(13) "32"
590 PRINT" #   [182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]":GOSUB720
600 FORI=1TOU:PRINTI"";
610 POKE646,1:X=235:Y=236:IFFRE(0)=FRE(1)THENX=214:Y=211
620 Z=1024+PEEK(X)*40+PEEK(Y):ZZ=PEEK(Z)
630 POKEZ,160:N$="":M$="":GETM$:POKEZ,ZZ:IFM$=""THEN630
640 IFM$=CHR$(133)THEN670
650 PRINTM$;:N$=N$+M$:IFM$=CHR$(13)THEN690
660 GOTO620
670 PRINT CHR$(18)CHR$(70)CHR$(146);
680 GOTO610
690 PRINT"[145]";:POKE631,34:POKE198,2:POKE632,13:INPUT"";M$(I)
700 NEXTI
710 PRINT"[158]     [170][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180]"
720 E$="":W$=CHR$(13)
730 E$=E$+" ([197])[146][155]DIT/[195]REATE"+W$
740 E$=E$+" ([211])[146][155]ETUP PRINT"+W$+" ([208])[146][155]RINT LABEL"+W$
750 E$=E$+" ([204])[146][155]INE NUMBER"+W$+" ([200])[146][155]ELP     "+W$
760 E$=E$+" ([195])[146][155]REDITS   "+W$+" ([209])[146][155]UIT     "+W$+" [158] [197]NTER [195]HOICE  "
770 !DEF(1,1,06,160,032,01):!DIM(13,02,18,10)
780 !OPEN,E$,W$:PRINT""
790 GETO$:IFO$=""THEN790
800 IFO$="E"THEN !CLOSE:POKE646,1:!PRINT@,2,0,W$:GOTO600
810 IFO$="Q"THEN !CLOSE:CLR:POKE53272,21:GOTO1050
820 IFO$="L"THEN !CLOSE:GOSUB290:GOTO560
830 IFO$="H"THEN GOSUB380:GOTO790
840 IFO$="C"THEN GOSUB70:GOTO790
850 IFO$="P"THEN!CLOSE:GOTO880
860 IFO$="S"THEN!CLOSE:GOSUB460:GOTO720
870 GOTO790
880 F$=" HOW MANY LABELS    ":F$=F$+" (1 TO 100)   [146]"
890 !DEF(1,1,10,160,160,01):!DIM(14,14,19,5)
900 !SAVE:!OPEN,F$,W$
910 SYS58726
920 INPUT"";NN$
930 N=VAL(NN$):IFN<1ORN>100THENNN$="":!CLOSE:GOTO720
940 !CLOSE
950 GOSUB1330:IFST<>0THENGOTO720
960 FORI=1TOU
970 IFLEFT$(M$(I),1)="+"THENM$(I)=CHR$(14)+(MID$(M$(I),2,LEN(M$(I))-1))+CHR$(15)
980 IFLEFT$(M$(I),1)="_"THENM$(I)=CHR$(32)
990 NEXTI
1000 OPEN4,4,G
1010 FORL=1TON
1020 FORI=1TOU
1030 PRINT#4,M$(I):NEXTI:PRINT#4:NEXT L:CLOSE4
1040 GOTO720
1050 PRINT"[147]"
1060 !HUE(6,6,14):FORI=0TO23
1070 PRINT" LABEL PRO V4.1-1986 SHAREWARE PRODUCT":NEXT
1080 PRINT" LABEL PRO V4.1-1986 SHAREWARE PRODUCT";:!RESTORE
1090 Z$="":Z$=Z$+"THANKS FOR USING LABEL PRO V4.1"
1100 !DIM(0,3,34,3):!DEF(1,1,0,0,32,10,1)
1110 !OPEN,Z$
1120 Z$="FROM"
1130 !DIM(5,16,7,3)
1140 !OPEN,Z$
1150 Z$="LARRY EAMER"
1160 !DIM(10,4,14,3)
1170 !OPEN,Z$
1180 Z$="ERIC WOOLSEY"
1190 !DIM(10,22,15,3)
1200 !OPEN,Z$
1210 Z$="AND THE BOSS!"
1220 !DIM(15,11,16,3)
1230 !OPEN,Z$
1240 Z$=" LAOB EVETS "
1250 !DIM(20,12,14,3)
1260 !OPEN,Z$
1270 FORI=1TO3000:NEXTI
1280 Z$="[158] STEVE BOAL"
1290 !DIM(20,12,14,3):!DEF(1,1,0,0,32,190)
1300 !OPEN,Z$
1310 FORI=1TO5000:NEXTI
1320 SYS64738
1330 G$="TURN PRINTER ON! [146]"
1340 OPEN15,4,15:CLOSE15:C=C+1
1350 IFST<>0ANDC>3THEN!CLOSE:!CLOSE:!CLOSE:C=0:POKE646,11:RETURN
1360 IFST=0THEN!CLOSE:!CLOSE:!CLOSE:C=0:POKE646,11:RETURN
1370 !DEF(1,1,135,160,160,85):!DIM(17,02,18,03)
1380 !OPEN,G$,W$:!CLR:GOTO1340
1390 !CLOSE:!RESTORE:RETURN
1400 GOSUB40:GOSUB70:GOSUB290:GOTO560